(FILECREATED " 2-DEC-75 12:42:16" <LENAT>LU.;6 1557   

     changes to:  LUCOMS

     previous date: "28-NOV-75 17:07:14" <LENAT>LU.;5)


  (LISPXPRINT (QUOTE LUCOMS)
	      T T)
  [RPAQQ LUCOMS ((P (SETQ MKSWAPSIZE 32)
		    (PRIN1 "Garbage collecting:")
		    (MINFS 17000 1)
		    (RECLAIM 1)
		    (MINFS 1000 1)
		    (MINFS 60000)
		    (RECLAIM)
		    (MINFS 17000)
		    (MINFS 5600 12)
		    (RECLAIM 12)
		    (MINFS 512 12)
		    (MINFS 4200 18)
		    (RECLAIM 18)
		    (MINFS 1000 18)
		    (MINFS 11000 28)
		    (RECLAIM 28)
		    (MINFS 512 28)
		    (TERPRI)
		    (PRIN1 "Loading in TOP6.COM")
		    (TERPRI)
		    (PRINT (LOAD (QUOTE TOP6.COM)))
		    (TERPRI)
		    (PRIN1 "Loading in CON6")
		    (TERPRI)
		    (PRINT (LOAD (QUOTE CON6)))
		    (TERPRI)
		    (PRIN1 "Loading in UTIL6")
		    (TERPRI)
		    (PRINT (LOAD (QUOTE UTIL6.COM)))
		    (LENGTH GLOBALVARS]
  (SETQ MKSWAPSIZE 32)
  (PRIN1 "Garbage collecting:")
  (MINFS 17000 1)
  (RECLAIM 1)
  (MINFS 1000 1)
  (MINFS 60000)
  (RECLAIM)
  (MINFS 17000)
  (MINFS 5600 12)
  (RECLAIM 12)
  (MINFS 512 12)
  (MINFS 4200 18)
  (RECLAIM 18)
  (MINFS 1000 18)
  (MINFS 11000 28)
  (RECLAIM 28)
  (MINFS 512 28)
  (TERPRI)
  (PRIN1 "Loading in TOP6.COM")
  (TERPRI)
  (PRINT (LOAD (QUOTE TOP6.COM)))
  (TERPRI)
  (PRIN1 "Loading in CON6")
  (TERPRI)
  (PRINT (LOAD (QUOTE CON6)))
  (TERPRI)
  (PRIN1 "Loading in UTIL6")
  (TERPRI)
  (PRINT (LOAD (QUOTE UTIL6.COM)))
  (LENGTH GLOBALVARS)
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP